home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 199
/
199.d81
/
b.hk3 atlantic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
51 lines
0 rem ***** hk atlantic boot *****
5 print"[147]":dv=peek(186):ifdv<8thendv=8
10 poke53280,0:poke53281,0:poke646,1:printchr$(14):printchr$(8)
15 gosub60000:q$=chr$(34)
20 v=10:h=10:gosub4145:print"[201]nitial [198]ile [195]heck."
25 df$="toolbox117 c000":gosub4205
30 df$="hk3 harbour":gosub4205
35 df$="hk3 bridge":gosub4205
40 df$="getword 1000":gosub4205
45 df$="f.harbour":gosub4205
50 df$="f.bridge":gosub4205
55 df$="navigation data":gosub4205
60 df$="t.hk sailing":gosub4205
65 df$="t.hk attack":gosub4205
70 forx=1to3:df$="h.hk"+str$(x):gosub4205:next
75 rem * v=10:gosub4155:h=10:gosub4145:print"[193]ny key when ready."
80 rem * a$="":geta$:ifa$=""then80
85 goto4405
4140 rem ***** set cursor *****
4145 poke211,h:poke214,v:sys58732:return
4150 rem ***** line delete *****
4155 poke781,v:gosub59903
4160 return
4200 rem ***** file check *****
4205 open15,dv,15,"r:"+df$+"="+df$:input#15,er,a$,a,a:close15
4210 ifer=63thenreturn
4215 print"[147]":bd=0:bk=0:ch=1:gosub5205:h=12:v=12:gosub4145:print"[204][207][193][196] [197][210][210][207][210]!"
4220 h=8:v=14:gosub4145:print"[198]ile "+q$+df$+q$+" missing.":print"":end
4400 rem ***** program file load *****
4405 df$="hk3 harbour":bd=0:bk=0:ch=0:gosub5205:print"[147]"
4410 v=21:h=8:gosub4145:print"[197][206][212][197][210][201][206][199][160][200][197][193][196][209][213][193][210][212][197][210][211].[144]"
4415 print"[144]load"q$df$q$","dv
4420 print"run":poke44,24:poke6144,0
4425 poke631,13:poke632,13:poke633,13:poke198,3:end
5160 return
5200 rem ***** colour set *****
5205 poke53280,bd:poke53281,bk:poke646,ch:return
10000 dv=peek(186):open15,dv,15,"s:b.hk3 atlantic":close15
10005 save"b.hk3 atlantic",dv:end
60000 print"[147]":z$=" [152] ":poke214,10:print
60005 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
60010 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60015 z$(0)="[200][213][206][212][197][210]-[203][201][204][204][197][210] [193][212][204][193][206][212][201][195]":z$(1)="(version 3)"
60020 z$(2)="([195]) 2000 by [195]harles [195]alvert "+chr$(13)
60025 z$(3)="[212]his program is a copyrighted work."
60030 z$(4)="[201]t is not shareware or in the"
60035 z$(5)="public domain."
60040 z$(6)="[210]eport illegal distribution of":z$(7)="this program by calling"
60045 z$(8)="1-905-643-7917.":poke214,12:print
60050 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return